home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / c / copy2 < prev    next >
Text File  |  2000-01-01  |  282b  |  16 lines
  1.  
  2. ;Copy by TheSaint
  3. requestfile PATTERN=#? TITLE "Bitte Files auswählen" DRAWER Work: MULTISELECT >env:File.list
  4. if warn
  5. quit
  6. endif
  7. requestfile TITLE "Wohin?" DRAWERSONLY DRAWER=RAM: >env:WhereTo
  8. if warn
  9. quit
  10. endif
  11. copy `type env:file.list` to $whereto >NIL:
  12. if fail
  13. quit
  14. endif
  15. quit
  16.